   Dim obApp
   Set obApp = CreateObject("hMailServer.Application")

   ' Authenticate. Without doing this, we won't have permission
   ' to change any server settings or add any objects to the
   ' installation.   
   Call obApp.Authenticate("Administrator", "HMailAdmin")
   
   ' Locate the domain we want to add the account to
   Dim obDomain
   Set obDomain = obApp.Domains.ItemByName("haiduong.gov.vn")
   
   Dim obAccount
   Set obAccount = obDomain.Accounts.ItemByAddress("quangtt@haiduong.gov.vn")
   
   ' Set the password to "secret"   
   obAccount.Password = "secret"

   obAccount.Save